home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / mac / prime_CD / pb / PROFILE.DIR / 00025_Script_#prev button script < prev    next >
Text File  |  1997-07-29  |  435b  |  20 lines
  1. global current_pm, dopm
  2. on mousedown
  3.   shift_down_left
  4.   waitcursor the clickon
  5.   if not (demo_check(current_pm - 1)) then
  6.     if current_pm <> 1 then
  7.       set current_pm = current_pm - 1
  8.       set dopm = true
  9.       dopm(current_pm)
  10.     else
  11.       if not (demo_check(20)) then
  12.         set current_pm = 20
  13.         set dopm = true
  14.         dopm(current_pm)
  15.       end if
  16.     end if
  17.   end if
  18.   handcurse the clickon
  19. end
  20.